home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 3: CDPD 3
/
Almathera Ten on Ten - Disc 3: CDPD3.iso
/
fish
/
001-100
/
001-025
/
009
/
proff
/
proff01.c
< prev
next >
Wrap
C/C++ Source or Header
|
1995-03-17
|
11KB
|
741 lines
#include <stdio.h>
#include <ctype.h>
#include "proff.h"
#include "debug.h"
/*
* bold - bold face or overstrike a line
*
*/
bold(buf,tbuf,size)
char buf[];
char tbuf[];
int size;
{
int i,j;
dprintf("bold ");
j = 0;
for (i = 0; buf[i] != '\n' && j < size - 2; i++) {
tbuf[j] = buf[i];
j++;
if (buf[i] != ' ' && buf[i] != '\t' &&
buf[i] != BACKSPACE ) {
tbuf[j] = BACKSPACE;
tbuf[j+1] = tbuf[j-1];
j += 2;
}
}
tbuf[j] = '\n';
tbuf[j+1] = '\0';
strcpy(buf,tbuf);
}
/*
* brkeol - end current filled line
*
*/
brkeol()
{
dprintf("brkeol ");
if (outp > 0) {
outbuf[outp] = '\n';
outbuf[outp+1] = EOS;
put(outbuf);
}
outp = 0;
outw = 0;
outwds = 0;
}
/*
* center - center a line by setting tival
*
*/
center(buf)
char buf[];
{
int i;
dprintf("center ");
i = (rmval + tival - width(buf)) / 2;
tival = (i > 0) ? i : 0;
}
/*
* doroff - format text in file fp
*
*/
doroff(fp)
FILE *fp;
{
char inbuf[INSIZE];
infile[0] = fp;
for (level = 0; level > -1; level--) {
while (ngetln(inbuf, infile[level]) != EOF) {
if (inbuf[0] == cchar) /* a command */
command(inbuf);
else {
#ifdef rainbow
if (biosb(2))
exit(0);
#endif
text(inbuf);
p_txtlines++;
}
}
if (level > 0 && infile[level] > 0) {
fclose(infile[level]);
if (verbose)
fprintf(stderr," done.\n");
}
}
}
/*
* gettl - copy title from buf to ttl
*
* modifies lim
*/
gettl(buf,ttl,lim)
char *buf;
char *ttl;
int lim[];
{
while (!isspace(*buf))
buf++;
while (isspace(*buf))
buf++;
strcpy(ttl,buf);
lim[0] = inval;
lim[1] = rmval;
}
/*
* getwrb - get a word INCLUDING the trailing blanks
*
*/
int
getwrb(in,i,out)
char in[];
char out[];
int *i;
{
int j,k;
dprintf("getval ");
k = *i;
j = 0;
while (in[k] != EOS && in[k] != ' ' &&
in[k] != '\t' && in[k] != '\n') {
out[j] = in[k];
k++;
j++;
}
while (in[k] == ' ') {
out[j] = ' ';
k++;
j++;
}
*i = k;
out[j] = EOS;
return(j);
}
/*
* gfield - get next tab or title field
*
*/
int
gfield(buf, i, n, temp, delim)
char buf[];
int *i;
int n;
char temp[];
char delim;
{
int j,k;
dprintf("gfield ");
j = 0;
k = *i;
if (n > 0) {
if (buf[k] == delim)
k++;
while (buf[k] != delim && buf[k] != EOS && buf[k] != '\n' &&
j <= n) {
temp[j] = buf[k];
j++;
k++;
}
}
temp[j] = EOS;
while (buf[k] != delim && buf[k] != EOS && buf[k] != '\n')
k++;
*i = k;
return(j);
}
/*
* jcopy - scopy without copying EOS
*
*/
jcopy(from, i, to, j)
char from[];
char to[];
int i;
int j;
{
int k1, k2;
dprintf("jcopy ");
k1 = i;
k2 = j;
while (from[k1] != EOS) {
to[k2] = from[k1];
k1++;
k2++;
}
}
/*
* justfy - justifies string in its tab column
* */
justfy(in, left, right, type, out)
char in[];
char out[];
int left;
int right;
int type;
{
int j,k, n;
dprintf("justfy ");
n = width(in);
if (type == RIGHT)
jcopy(in, 0, out, right-n);
else if (type == CENTER) {
k = (right+left-n) / 2;
j = (k > left) ? k : left;
jcopy(in, 0, out, j);
}
else
jcopy(in, 0, out, left);
}
/*
* leadbl - delete leading blanks, set tival
*
*/
leadbl(buf)
char buf[];
{
int i, j;
dprintf("leadbl ");
brkeol();
for (i = 0; buf[i] == ' '; i++) /* find 1st non-blank */
;
if (buf[i] != '\n')
if (autopar) {
put("\n"); /* blank line */
tival = inval + autoprv;
}
else
tival = inval + i; /* ??????????? */
for (j = 0; buf[i] != EOS; j++) { /* move line to left */
buf[j] = buf[i];
i++;
}
buf[j] = EOS;
}
/*
* ngetln - get next line from f into line
*
*/
int
ngetln(line, f)
char line[];
FILE *f;
{
int c, i;
for (i = 0; (c = (bp >= 0) ? buf[bp--] : getc(f)) != EOF; ) {
if (i < MAXLINE - 1) {
line[i++] = (char) c;
}
if (c == '\n' || c == '\r')
break;
}
line[i] = EOS;
if (i == 0 && c == EOF)
i = EOF;
#ifdef DEBUG
printf("ngetln: %s (line)\n",line);
#endif
return(i);
}
/*
* pbstr - push string back onto input
*
*/
pbstr(in)
char in[];
{
int i;
dprintf("pbstr ");
for (i = strlen(in) - 1; i >= 0; i--)
putbak(in[i]);
}
/*
* pfoot - put out page footer
*
*/
pfoot()
{
dprintf("pfoot ");
skipl(m3val);
if (m4val > 0) {
if (curpag % 2 == 1)
puttl(efoot, eflim, curpag);
else
puttl(ofoot, oflim, curpag);
}
if (print == YES) /* flush the page */
{
putchar(PAGEJECT); /* ... */
p_outpages++;
if (stopx > 0) /* -s, so flush ^L*/
putchar('\n');
}
}
/*
* phead - put out page header
*
*/
phead()
{
dprintf("phead ");
curpag = newpag;
if (curpag >= frstpg && curpag <= lastpg)
print = YES;
else
print = NO;
if(stopx > 0 && print == YES)
prmpt(&stopx);
newpag++;
if (m1val > 0) {
skipl(m1val-1);
if (curpag % 2 == 0)
puttl(ehead, ehlim, curpag);
else
puttl(ohead, ohlim, curpag);
}
skipl(m2val);
lineno = m1val + m2val + 1;
}
/*
* prmpt - pause for paper insertion
* prompt if i == 1; increment i
*
*/
prmpt(i)
int *i;
{
int junk,j;
static char bellst[2] = { BEL, EOS};
dprintf("prmpt ");
j = *i;
if (j == 1)
#ifdef rainbow
printf("%s\033[7minsert paper and type return\033[0m ",bellst);
#else
printf("%sinsert paper and type return ",bellst);
#endif
else
printf(bellst);
junk = getchar();
*i = ++j;
}
/*
* Put - put out line with proper spacing and indenting
*
*/
put(buf)
char buf[];
{
register int i;
dprintf("put ");
if (lineno == 0 || lineno > bottom)
phead();
if ( print == YES ) {
if (buf[0] == '\n') { /* empty line.. */
putchar('\n');
p_outlines++;
}
else {
for ( i = 1 ; i <= offset ; i++ ) /* page offset */
putchar(' ');
for ( i = 1 ; i <= tival ; i++ ) /* indenting */
putchar(' ');
while (*buf != '\0') {
putchar(*buf);
buf++;
}
p_outlines++;
}
}
tival = inval;
skipl(((lsval-1 < bottom-lineno) ? lsval-1 : bottom-lineno));
lineno += lsval;
if (lineno > bottom)
pfoot();
}
/*
* putbak - push character back onto input
*
*/
putbak(c)
char c;
{
dprintf("putbak ");
bp++;
if (bp > BUFSIZE)
error("too many characters pushed back.\n");
buf[bp] = c;
}
/*
* puttl - put out title line with optional page number & date
*
*/
puttl(buf, lim, pageno)
char buf[];
int lim[];
int pageno;
{
char chars[9],cdate[27];
char rmstr[MAXTOK];
char delim;
char *tp;
int j;
int nc, n, i, left, right, ncd;
dprintf("puttl ");
if (print == NO)
return;
left = lim[0]; /* no more +1 here */
right = lim[1]; /* no more +1 here */
nc = itoc(pageno, chars, MAXCHARS);
if (roman) {
nc = cvtroman(chars,rmstr);
strcpy(chars,rmstr);
}
getnow(cdate);
ncd = strlen(cdate);
i = 0;
delim = buf[i];
for (j = 0; j < right; j++)
ttl[j] = ' ';
n = 0;
do {
if (gfield(buf, &i, right-left, tbuf1, delim) > 0) {
subst(tbuf1, PAGENUM, tbuf2, chars, nc);
subst(tbuf2, CURRENTDATE, tbuf1, cdate, ncd);
justfy(tbuf1, left, right, tjust[n], ttl);
}
n++; /* update title counter */
}
while (buf[i] != EOS && buf[i] != '\n' && n != 3);
for( ; right >= 1 ; right--)
if( ttl[right-1] != ' ' )
break;
ttl[right] = '\n';
ttl[right+1] = EOS;
for (i = 1; i <= offset; i++)
putchar(' '); /* offset */
tp = ttl;
while (*tp != '\0') {
putchar(*tp);
tp++;
}
p_outlines++;
}
/*
* set - set parameter and check range
*
*/
set(param, val, argtyp, defval, minval, maxval)
int *param;
int val;
int argtyp;
int defval;
int minval;
int maxval;
{
int i;
dprintf("set ");
i = *param;
if (argtyp == '\n') /* defaulted */
i = defval;
else if (argtyp == '+') /* relative +*/
i += val;
else if (argtyp == '-') /* relative -*/
i -= val;
else /* absolute */
i = val;
i = (i < maxval) ? i : maxval; /* min */
i = (i > minval) ? i : minval; /* max */
*param = i;
}
/*
* skipl - output n blank lines
*
*/
skipl(n)
register int n;
{
register int i;
dprintf("skip ");
if (print == YES)
for (i = 1; i <= n; i++) {
putchar('\n');
p_outlines++;
}
}
/*
* space - space n lines or to bottom of page
*
*/
space(n)
int n;
{
dprintf("space ");
brkeol();
if (lineno > bottom)
return;
if (lineno == 0)
phead();
skipl(((n < bottom+1-lineno) ? n : bottom+1-lineno));
lineno += n;
if (lineno > bottom)
pfoot();
}
/*
* spread - spread words to justify right margin
*
*/
spread(buf, outp, nextra, outwds)
char buf[];
int outp;
int nextra;
int outwds;
{
int dir = 0;
register int i, j;
int nb, ne, nholes;
dprintf("spread ");
if (nextra <= 0 || outwds <= 1)
return;
dir = 1 - dir; /* reverse previous direction */
ne = nextra;
nholes = outwds - 1;
if (tival != inval && nholes > 1)
nholes--;
i = outp - 1;
j = (MAXOUT-2 < i+ne) ? MAXOUT-2 : i+ne; /* leave room for '\n', EOS */
while (i < j) {
buf[j] = buf[i];
if (buf[i] == ' ' && buf[i-1] != ' ') {
if (dir == 0)
nb = (ne-1) / nholes + 1;
else
nb = ne / nholes;
ne -= nb;
nholes--;
for ( ; nb > 0; nb--) {
j--;
buf[j] = ' ';
}
}
i--;
j--;
}
}
/*
* subst - substitutes a string for a specified character
*
*/
subst(in, chr, out, subara, n)
char in[];
char chr;
char out[];
char subara[];
int n;
{
register int i, j, k;
dprintf("subst ");
j = 0;
for (i = 0; in[i] != EOS; i++)
if (in[i] == chr)
for (k = 0; k < n; k++) {
out[j] = subara[k];
j++;
}
else {
out[j] = in[i];
j++;
}
out[j] = EOS;
}
/*
* Text process text lines
*
*/
text(inbuf)
char inbuf[];
{
int i;
register int j;
char wrdbuf[INSIZE];
dovar(wrdbuf,inbuf); /* expand variables */
strcpy(inbuf,wrdbuf);
doesc(inbuf, wrdbuf, INSIZE); /* expand escapes */
dotabs(inbuf, wrdbuf, INSIZE); /* expand tabs */
if(inbuf[0] == ' ' || inbuf[0] == '\n')
leadbl(inbuf); /* move left, set tival */
if(ulval > 0 || ULon) /* word underlining */
{
underl(inbuf, wrdbuf, INSIZE);
ulval--;
}
if(boval > 0 || BDon) /* boldfacing */
{
bold( inbuf, wrdbuf, INSIZE);
boval--;
}
if(ceval > 0 || CEon) /* centering */
{
center(inbuf);
put(inbuf);
ceval--;
}
else if( inbuf[0] == '\n' ) /* all blank line */
put(inbuf);
else if( fill == NO ) /* unfilled text */
put(inbuf);
else /* filled text */
{
i = strlen(inbuf) - 1;
inbuf[i] = ' ';
if( inbuf[i-1] == '.' )
{
i++;
inbuf[i] = ' ';
}
inbuf[i+1] = EOS;
for( i = 0 ; getwrb(inbuf, &i, wrdbuf) > 0 ; )
putwrd(wrdbuf);
}
}
/*
* Underl underline words in a line
*
*/
underl(buf, tbuf, size)
char buf[];
char tbuf[];
int size;
{
int i, j;
j = 0;
for(i = 0 ; buf[i] != '\n' && j < size - 2; i++) {
if( buf[i] != ' ' && buf[i] != BACKSPACE && buf[i] != '_' ) {
tbuf[j++] = '_';
tbuf[j++] = BACKSPACE;
}
if( buf[i] == BLANK )
tbuf[j++] = ulblnk;
else
tbuf[j++] = buf[i];
}
tbuf[j] = '\n';
tbuf[j+1] = '\0';
strcpy(buf, tbuf);
}
/*
* width - compute width of character string
*
*/
int
width(buf)
char buf[];
{
int k,i;
dprintf("width ");
k = 0;
for (i = 0; buf[i] != EOS; i++)
if (buf[i] == BACKSPACE)
k--;
else if (buf[i] >= ' ' && buf[i] <= '~')
k++;
return(k);
}
/*
* getnow - get the date from command line if present.
* if not specified, prompt user for it.
*
* (stub)
*/
getnow(date)
char date[];
{
dprintf("getnow ");
strcpy(date,"00-xxx-1900 00:00:00");
}